home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #21 (1994-01-12)(Diesel)(DE)[WB].zip / Purity #21 (1994-01-12)(Diesel)(DE)[WB].adf / RogerdatTools / GoAmiga_2_Rogerdat.p next >
Text File  |  1994-01-12  |  823b  |  47 lines
  1.  
  2.  
  3.  
  4. VAR f,f2:TEXT;
  5.     c:CHAR;
  6.     s:STRING[80];
  7.     l,i:INTEGER;
  8.  
  9. PROCEDURE zerlegestring;
  10.  BEGIN
  11.   writeln(s);
  12.   writeln(f2); { keine Bemerkung }
  13.   FOR l:= 1 TO length(s) DO
  14.   BEGIN
  15.    IF s[l]=',' THEN writeln(f2)
  16.                ELSE write(f2,s[l]);
  17.   END;
  18.   writeln(f2);
  19.   writeln(f2,'0');
  20.   writeln(f2,'0');
  21.   writeln(f2,'0');
  22.   s:='';
  23.  END;
  24.  
  25.  
  26. BEGIN
  27.  s:='';
  28.  reset(f,'dh0:go1.MLR');   { hier muß die als Ascii datei von
  29.                              GoAmiga! Datei und Ihr Pfad angegeben werden}
  30.  rewrite(f2,'dh0:go1');    { Hier halt den Namen der neuen Rogerdatdatei
  31.                              eingeben}
  32.  Writeln(f2,'Rogerdat Dateikennungskopf');
  33.  writeln(f2);
  34.  writeln(f2);
  35.  writeln(f2);
  36.  WHILE NOT eof(f) DO
  37.  BEGIN
  38.   read(f,c);
  39.   IF ORD(c)=13 THEN zerlegestring
  40.   ELSE s:=s+c;
  41.  END;
  42.  close(f);
  43.  close(f2);
  44. END.
  45.  
  46.  
  47.